﻿Public Class Medicamento
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cId As Integer
    Private cNombre As String
    Private cTroquel As Integer
    Private cCodigoBarra As String
    Private cPresentacion As String
    Private cImporte As Double
    Private cLaboratorioId As Integer
    Private cTamanoMedicamentoId As Integer
    Private cAccionFarmacologicaId As Integer
    Private cMonodrogaId As Integer
#End Region

#Region "Constructores"
    Public Sub New()
        cId = -1
        cNombre = ""
        cTroquel = -1
        cCodigoBarra = -1
        cPresentacion = ""
        cImporte = -1
        cLaboratorioId = -1
        cTamanoMedicamentoId = -1
        cAccionFarmacologicaId = -1
        cMonodrogaId = -1
    End Sub

    Public Sub New(ByVal pId As Integer, ByVal pNombre As String, ByVal pTroquel As Integer, ByVal pCodigoBarra As String, ByVal pPresentacion As String, ByVal pImporte As Double, ByVal pLaboratorioId As Integer, ByVal pTamanoMedicamentoId As Integer, ByVal pAccionFarmacologicaId As Integer, ByRef pMonodrogaId As Integer)
        cId = pId
        cNombre = pNombre
        cTroquel = pTroquel
        cCodigoBarra = pCodigoBarra
        cPresentacion = pPresentacion
        cImporte = pImporte
        cLaboratorioId = pLaboratorioId
        cTamanoMedicamentoId = pTamanoMedicamentoId
        cAccionFarmacologicaId = pAccionFarmacologicaId
        cMonodrogaId = pMonodrogaId
    End Sub
#End Region

#Region "Propiedades"
    Public Property Id()
        Get
            Return cId
        End Get
        Set(ByVal value)
            cId = value
        End Set
    End Property

    Public Property Nombre()
        Get
            Return cNombre
        End Get
        Set(ByVal value)
            cNombre = value
        End Set
    End Property

    Public Property Troquel()
        Get
            Return cTroquel
        End Get
        Set(ByVal value)
            cTroquel = value
        End Set
    End Property

    Public Property CodigoBarra()
        Get
            Return cCodigoBarra
        End Get
        Set(ByVal value)
            cCodigoBarra = value
        End Set
    End Property

    Public Property Presentacion()
        Get
            Return cPresentacion
        End Get
        Set(ByVal value)
            cPresentacion = value
        End Set
    End Property

    Public Property Importe()
        Get
            Return cImporte
        End Get
        Set(ByVal value)
            cImporte = value
        End Set
    End Property

    Public Property Laboratorio()
        Get
            Return cLaboratorioId
        End Get
        Set(ByVal value)
            cLaboratorioId = value
        End Set
    End Property

    Public Property TamanoMedicamentoId()
        Get
            Return cTamanoMedicamentoId
        End Get
        Set(ByVal value)
            cTamanoMedicamentoId = value
        End Set
    End Property

    Public Property AccionFarmacologicaId()
        Get
            Return cAccionFarmacologicaId
        End Get
        Set(ByVal value)
            cAccionFarmacologicaId = value
        End Set
    End Property

    Public Property Monodroga()
        Get
            Return cMonodrogaId
        End Get
        Set(ByVal value)
            cMonodrogaId = value
        End Set
    End Property
#End Region
End Class
